0 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
5 REM WRITTEN BY JAMES T. JONES
10 POKE 55,0:POKE 56,56:CLR:POKE 53280,6:POKE53281,6:CS$=CHR$(147):PRINT CS$
20 RV$=CHR$(18):REM DEMO FOR 'CAPTURING' AND RESTORING SCREENS
30 PRINT CHR$(14)CHR$(8)CHR$(5):CR$=CHR$(13)
40 DV=PEEK(186):IF DV<8 THEN DV=8
50 POKE 147,0:SYS 57812"SCRN TILE(680).O",DV,1:SYS62631
60 SYS 680
70 POKE 214,3:PRINT:POKE211,4:INPUT"[196]ISK DRIVE DEVICE NUMBER (8-15)";DV$
80 DV=VAL(DV$):IF DV$="" THEN END
90 GOSUB510 :REM GAZETTE ROUTINE FOR    CHECKING DISK DRIVE
100 SYS57812"ITALICS.SET",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
110 POKE 53272,31:CR$=CHR$(13):CD$=CHR$(17):REM SWITCH TO ITALICS.SET FONT
120 SYS57812"DISPLAY FONT.O",DV,0:POKE780,0:POKE781,0:POKE782,206:SYS65493
130 GOSUB620:REM TITLE SCREEN
140 POKE 147,0:SYS 57812"SCRN CAP RESTR.O",DV,1:SYS62631
150 SYS680:PRINTCD$CD$"[211][217][211] 52797 SAVES [211]CREEN 1."
160 PRINTCD$"[211][217][211] 52825 RESTORES [211]CREEN 1."
170 PRINTCD$"[212]HIS IS [211]CREEN 1.":SYS 52797
180 POKE 214,21:GOSUB470 
190 SYS 680:PRINTCD$CD$"[211][217][211] 52853 SAVES [211]CREEN 2."
200 PRINTCD$"[211][217][211] 52881 RESTORES [211]CREEN 2."
210 PRINTCD$"[158][212]HIS IS [211]CREEN 2.":SYS 52853
220 POKE 214,21:GOSUB470 
230 SYS 680:PRINTCD$CD$"[211][217][211] 52909 SAVES [211]CREEN 3."
240 PRINTCD$"[211][217][211] 52937 RESTORES [211]CREEN 3."
250 PRINTCD$"[159][212]HIS IS [211]CREEN 3.":SYS 52909
260 POKE 214,21:GOSUB470 
270 SYS 680:PRINTCD$CD$"[211][217][211] 52965 SAVES [211]CREEN 4."
280 PRINTCD$"[211][217][211] 52993 RESTORES [211]CREEN 4."
290 PRINTCD$"[212]HIS IS [211]CREEN 4.":SYS 52965
300 POKE 214,21:GOSUB470 
310 SYS 680:PRINTCD$CD$"[208]RESS 1, 2, 3 OR 4 TO RESTORE [211]CREENS"
320 PRINTCD$"1, 2, 3 OR 4, RESPECTIVELY."
330 PRINTCD$"[208]RESS [209] TO EXIT TO [194][193][211][201][195]."
340 GETA$:IF A$="" THEN340 
350 ON VAL(A$) GOTO380 ,410,430,450
360 IF A$="Q" OR A$="[209]" THEN POKE 56,160:END
370 GOTO340 
380 SYS 52825:REM RESTORE SCREEN 1
390 POKE 214,21:GOSUB470 
400 GOTO310 
410 SYS 52881:REM RESTORE SCREEN 2
420 POKE 214,21:GOSUB470 :GOTO310 
430 SYS 52937:REM RESTORE SCREEN 3
440 POKE 214,21:GOSUB470 :GOTO310 
450 SYS 52993:REM RESTORE SCREEN 4
460 POKE 214,21:GOSUB470 :GOTO310 
470 PRINT:PRINT RV$"       PRESS <[210][197][212][213][210][206]> TO CONTINUE       "
480 D$="":GET D$:IF D$<>CR$ THEN480 
490 PRINT CS$
500 RETURN
510 CLOSE15:OPEN 15,DV,15:CLOSE15
520 IF ST=0 THEN560 
530 PRINTCD$"[212]URN YOUR DISK DRIVE ON AND PRESS"
540 PRINT"<[210]ETURN>."
550 B$="":GET B$:IF B$<>CR$ THEN550 
560 OPEN15,DV,15,"I":INPUT#15,ER:CLOSE15
570 IF ER=0 THEN RETURN
580 PRINTCD$"[208]UT A DISKETTE IN YOUR DISK DRIVE"
590 PRINT"AND PRESS <[210]ETURN>."
600 B$="":GET B$:IF B$<>CR$ THEN600 
610 GOTO560 
620 DATA "[199]AZETTE PRESENTS ","[193] [196]EMONSTRATION OF A [210]OUTINE"
630 DATA "TO [195]APTURE AND [210]ESTORE","[213]P TO [198]OUR [211]CREENS"
640 DATA "[208]RESS ANY KEY TO CONTINUE"
650 FOR X=1 TO 5:READ AU$(X):NEXT
660 SYS 680
670 SYS 52736
680 POKE 214,12:PRINT:PRINTSPC(20-LEN(AU$(1))/2)AU$(1):PRINT
690 PRINTSPC(20-LEN(AU$(2))/2)AU$(2):PRINT
700 PRINTSPC(20-LEN(AU$(3))/2)AU$(3):PRINT
710 PRINTSPC(20-LEN(AU$(4))/2)AU$(4)
720 POKE214,22:PRINT:PRINTSPC(20-LEN(AU$(5))/2)AU$(5)
730 GET A$:IF A$="" THEN730 
740 RETURN